home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
pob197_f.zip
/
POB197.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1996-06-22
|
3KB
|
210 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
Int INT001
Int INT002
;------------------------------------------------------------------------------
If (AnsiOn()) Goto LABEL001
DispFile PPEPath() + "noansi", 1 + 2 + 4
Stop
:LABEL001
INT002 = 3
STRING006 = PPEPath() + PPEName() + LangExt()
Print ReadLine(STRING006, 1)
INT001 = GetY()
STRING003 = ScrText(32, INT001, 17, 1)
STRING004 = ScrText(53, INT001, 12, 1)
If (INT001 == 23) Inc INT001
AnsiPos 2, INT001
Print "@X08POB197 1.15 POB(@X0Ac@X08)1996"
AnsiPos 79, INT001
STRING002 = ""
:LABEL002
STRING001 = TInkey(15000)
:LABEL003
STRING001 = Upper(STRING001)
Select Case (STRING001)
Case Chr(27), "UP"
AnsiPos 1, INT001
ClrEol
KbdStuff "N" + Chr(13)
Case Chr(13), " "
Select Case (INT002)
Case 2
AnsiPos 1, INT001
ClrEol
KbdStuff "N" + Chr(13)
Case 1
Goto LABEL004
Case Else
KbdStuff STRING002 + Chr(13)
End Select
Case (((((((STRING001 == "H") || (STRING001 == "Y")) || (STRING001 == "A")) || (STRING001 == "D")) || (STRING001 == "S")) || (STRING001 == "+")) || (STRING001 == "-")) || (STRING001 == "Q"), ((STRING001 == "H") || (STRING001 == "Y")) || (STRING001 == "A"), "H", "Y", "A", "D", "S", "+", "-", "Q", "E", "K", "J", "N", "V"
KbdStuff STRING001 + Chr(13)
Case "T"
KbdStuff "TS" + Chr(13)
Case "R"
KbdStuff "RE" + Chr(13)
Case "P"
KbdStuff "NS" + Chr(13)
Case "I"
KbdStuff "EDIT" + Chr(13)
Case "F"
KbdStuff "FLAG" + Chr(13)
Case "W"
KbdStuff "FORWARD" + Chr(13)
Case "M"
KbdStuff "MOVE"
Case "G"
KbdString "FLAG" + Chr(13)
KbdString "D" + Chr(13)
Case "X", "#"
:LABEL004
SaveScrn
Cls
DispFile PPEPath() + "197", 1 + 2 + 4
STRING001 = TInkey(1000)
RestScrn
Goto LABEL003
Case "LEFT"
If (INT002 == 1) Then
INT002 = 3
Else
Dec INT002
Endif
Select Case (INT002)
Case 1
AnsiPos 53, INT001
Print STRING004
AnsiPos 32, INT001
STRING005 = STRING003
STRING005 = StripAtx(STRING005)
Print "@X4F", Upper(STRING005), "@X07"
Goto LABEL002
Case 2
AnsiPos 79, INT001
AnsiPos 53, INT001
STRING005 = STRING004
STRING005 = StripAtx(STRING005)
Print "@X4F", Upper(STRING005), "@X07"
Goto LABEL002
Case 3
AnsiPos 32, INT001
Print STRING003
AnsiPos 79, INT001
Goto LABEL002
End Select
Case "RIGHT"
If (INT002 == 3) Then
INT002 = 1
Else
Inc INT002
Endif
Select Case (INT002)
Case 1
AnsiPos 32, INT001
STRING005 = STRING003
STRING005 = StripAtx(STRING005)
Print "@X4F", Upper(STRING005), "@X07"
Goto LABEL002
Case 2
AnsiPos 32, INT001
Print STRING003
AnsiPos 53, INT001
STRING005 = STRING004
STRING005 = StripAtx(STRING005)
Print "@X4F", Upper(STRING005), "@X07"
Goto LABEL002
Case 3
AnsiPos 53, INT001
Print STRING004
AnsiPos 79, INT001
Goto LABEL002
End Select
Case Else
Goto LABEL002
End Select
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Cls
; 2 ClrEol
; 56 Goto
; 19 Let
; 10 Print
; 26 If
; 2 DispFile
; 2 Inc
; 1 Dec
; 1 Stop
; 11 KbdStuff
; 15 AnsiPos
; 1 SaveScrn
; 1 RestScrn
; 2 KbdString
;
;
; ■ Functions used :
;
; 20 +
; 40 ==
; 25 !
; 15 ||
; 5 Upper()
; 14 Chr()
; 4 StripAtx()
; 3 PPEPath()
; 1 ReadLine()
; 1 LangExt()
; 1 AnsiOn()
; 1 GetY()
; 1 PPEName()
; 2 ScrText()
; 2 TInkey()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 4 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------